From: Nick Roberts Date: Wed, 21 Mar 2007 20:43:49 +0000 (+0000) Subject: *** empty log message *** X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~1417 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=309fd94dcedd4d45ef2de8959bcaa598e983a2f3;p=emacs.git *** empty log message *** --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4609a2d7a1c..0c0c2627e03 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-03-21 Kim F. Storm + + * xt-mouse.el (xt-mouse-epoch): New variable. + (xterm-mouse-event): Use float-time. + 2007-03-21 Nick Roberts * xt-mouse.el (xterm-mouse-event): Compute a timestamp using diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index f4634a72ff5..e83911a78fc 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el @@ -127,6 +127,8 @@ (x (- (xterm-mouse-event-read) #o40 1)) (y (- (xterm-mouse-event-read) #o40 1)) (time (current-time)) + ;; Emulate timestamp information. This is accurate enough + ;; for default value of mouse-1-click-follows-link (450msec). (timestamp (truncate (* 1000 (- (float-time)